r = 1 gotcalender = 0 gotcomic = 0 gotposter = 0 gotmask = 0 gotpoison = 0 gotquarter = 0 gothobodoll = 0 jessecardiff = 1 talkingtine = 1 jasonfoster = 1 emily = 1 wilfred = 1 paula = 1 wilfredjr = 1 sportsharewood = 1 jebsharewood = 1 rodserling = 3 general = 1 mikeferris = 1 SCREEN 12 COLOR 15, 0 CLS DIM SHARED DOOM AS DOUBLE Minutes = 59 Seconds = 59 GameTime = Minutes * 60 + Seconds DIM directions(1 TO 65) AS STRING directions(1) = "EAST OR SOUTH" directions(2) = "WEST OR SOUTH" directions(3) = "NORTH OR WEST" directions(4) = "NORTH, EAST, OR WEST" directions(5) = "EAST OR SOUTH" directions(6) = "NORTH, SOUTH, OR WEST" directions(7) = "NORTH OR SOUTH" directions(8) = "NORTH OR EAST" directions(9) = "EAST OR WEST" directions(10) = "EAST OR WEST" directions(11) = "WEST OR SOUTH" directions(12) = "NORTH OR WEST" directions(13) = "EAST OR SOUTH" directions(14) = "NORTH, SOUTH, OR WEST" directions(15) = "NORTH OR EAST" directions(16) = "SOUTH" directions(17) = "NORTH, EAST, OR WEST" directions(18) = "NORTH OR WEST" directions(19) = "SOUTH" directions(20) = "EAST" directions(21) = "EAST OR WEST" directions(22) = "EAST OR WEST" directions(23) = "SOUTH OR EAST" directions(24) = "NORTH, SOUTH, OR WEST" directions(25) = "EAST" directions(26) = "NORTH, SOUTH, OR EAST" directions(27) = "WEST" directions(28) = "NORTH OR WEST" directions(29) = "EAST OR WEST" directions(30) = "EAST OR SOUTH" directions(31) = "NORTH, SOUTH, OR WEST" directions(32) = "EAST OR SOUTH" directions(33) = "NORTH OR SOUTH" directions(34) = "NORTH" directions(35) = "NORTH OR EAST" directions(36) = "NORTH, SOUTH, EAST, OR WEST" directions(37) = "SOUTH OR EAST" directions(38) = "WEST" directions(39) = "WEST" directions(40) = "NORTH, SOUTH, OR WEST" directions(41) = "NORTH, SOUTH, OR EAST" directions(42) = "NORTH OR WEST" directions(43) = "SOUTH" directions(44) = "EAST OR SOUTH" directions(45) = "NORTH OR WEST" directions(46) = "EAST OR SOUTH" directions(47) = "NORTH OR EAST" directions(48) = "WEST" directions(49) = "NORTH OR EAST" directions(50) = "EAST OR WEST" directions(51) = "EAST OR WEST" directions(52) = "WEST OR SOUTH" directions(53) = "NORTH, EAST, OR WEST" directions(54) = "EAST, WEST, OR SOUTH" directions(55) = "NORTH OR WEST" directions(56) = "WEST OR SOUTH" directions(57) = "EAST" directions(58) = "EAST OR SOUTH" directions(59) = "NORTH, SOUTH, OR EAST" directions(60) = "EAST OR WEST" directions(61) = "NORTH, EAST, OR WEST" directions(62) = "WEST" directions(63) = "NORTH OR SOUTH" directions(64) = "NORTH OR WEST" directions(65) = "EAST" PRINT "" PRINT "________________________________________________________________________" PRINT "|There is a fifth dimension, beyond that which is known to man. It is |" PRINT "|a dimension as vast as space, and as timeless as infinity. It is the |" PRINT "|middle ground between light and shadow, and it lies between the pit |" PRINT "|of man's fears and the summit of his knowledge. This is the dimension |" PRINT "|of imagination. It is an area which we call The Twilight Zone. |" PRINT "|======================================================================|" PRINT "|A night out on the cusp of self destruction. Wandering, down a beaten |" PRINT "|path in the middle of the night, and to find a place to hang one's |" PRINT "|hat. But this isn't any normal homestead, for it's on the outskirts of|" PRINT "|The Twilight Zone. |" PRINT "________________________________________________________________________" DO: LOOP UNTIL INKEY$ <> "" DO: LOOP UNTIL INKEY$ <> "" DOOM = TIMER(0.001) + GameTime 'change this to to desied time for the game to run DO CLS PRINT " _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ *" PRINT " / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \" PRINT " ( T | h | e ) ( T | w | i | l | i | g | h | t ) ( Z | O | n | e ) *" PRINT " \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/" PRINT " * * * " PRINT " * Source Code by * " PRINT " * D.B. Taylor * * * " PRINT " * * Copyright (c) 2016 * *" PRINT " * " PRINT " * The Twilight Zone Copyright (c) CBS *" PRINT "" PRINT SPACE$(38); IF INSTR(directions(r), "NORTH") THEN PRINT "N" ELSE PRINT PRINT "*---------------------------------* "; IF INSTR(directions(r), "WEST") THEN PRINT "W"; ELSE PRINT " "; PRINT " + "; IF INSTR(directions(r), "EAST") THEN PRINT "E"; ELSE PRINT " "; PRINT " *------------------------------------*" PRINT SPACE$(38); IF INSTR(directions(r), "SOUTH") THEN PRINT "S" ELSE PRINT PRINT PRINT "If you are stuck just type HELP." PRINT GOSUB ROOM GOSUB parser LOOP ROOM: IF r = 1 THEN: GOSUB r1 IF r = 2 THEN: GOSUB r2 IF r = 3 THEN: GOSUB r3 IF r = 4 THEN: GOSUB r4 IF r = 5 THEN: GOSUB r5 IF r = 6 THEN: GOSUB r6 IF r = 7 THEN: GOSUB r7 IF r = 8 THEN: GOSUB r8 IF r = 9 THEN: GOSUB r9 IF r = 10 THEN: GOSUB r10 IF r = 11 THEN: GOSUB r11 IF r = 12 THEN: GOSUB r12 IF r = 13 THEN: GOSUB r13 IF r = 14 THEN: GOSUB r14 IF r = 15 THEN: GOSUB r15 IF r = 16 THEN: GOSUB r16 IF r = 17 THEN: GOSUB r17 IF r = 18 THEN: GOSUB r18 IF r = 19 THEN: GOSUB r19 IF r = 20 THEN: GOSUB r20 IF r = 21 THEN: GOSUB r21 IF r = 22 THEN: GOSUB r22 IF r = 23 THEN: GOSUB r23 IF r = 24 THEN: GOSUB r24 IF r = 25 THEN: GOSUB r25 IF r = 26 THEN: GOSUB r26 IF r = 27 THEN: GOSUB r27 IF r = 28 THEN: GOSUB r28 IF r = 29 THEN: GOSUB r29 IF r = 30 THEN: GOSUB r30 IF r = 31 THEN: GOSUB r31 IF r = 32 THEN: GOSUB r32 IF r = 33 THEN: GOSUB r33 IF r = 34 THEN: GOSUB r34 IF r = 35 THEN: GOSUB r35 IF r = 36 THEN: GOSUB r36 IF r = 37 THEN: GOSUB r37 IF r = 38 THEN: GOSUB r38 IF r = 39 THEN: GOSUB r39 IF r = 40 THEN: GOSUB r40 IF r = 41 THEN: GOSUB r41 IF r = 42 THEN: GOSUB r42 IF r = 43 THEN: GOSUB r43 IF r = 44 THEN: GOSUB r44 IF r = 45 THEN: GOSUB r45 IF r = 46 THEN: GOSUB r46 IF r = 47 THEN: GOSUB r47 IF r = 48 THEN: GOSUB r48 IF r = 49 THEN: GOSUB r49 IF r = 50 THEN: GOSUB r50 IF r = 51 THEN: GOSUB r51 IF r = 52 THEN: GOSUB r52 IF r = 53 THEN: GOSUB r53 IF r = 54 THEN: GOSUB r54 IF r = 55 THEN: GOSUB r55 IF r = 56 THEN: GOSUB r56 IF r = 57 THEN: GOSUB r57 IF r = 58 THEN: GOSUB r58 IF r = 59 THEN: GOSUB r59 IF r = 60 THEN: GOSUB r60 IF r = 61 THEN: GOSUB r61 IF r = 62 THEN: GOSUB r62 IF r = 63 THEN: GOSUB r63 IF r = 64 THEN: GOSUB r64 IF r = 65 THEN: GOSUB r65 RETURN parser: PRINT "> "; cmd$ = GrabInput cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$))) IF cmd$ = "END" OR cmd$ = "QUIT" OR cmd$ = "EXIT" OR cmd$ = "Q" THEN END END IF IF cmd$ = "HELP" OR cmd$ = "H" OR cmd$ = "?" THEN CLS PRINT "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..." PRINT PRINT "NORTH, EAST ,SOUTH, AND WEST - MOVE TO AN AVAILABLE LOCATION" PRINT "EXAMINE (OBJECT) - EXAMINE AN OBJECT" PRINT "USE (OBJECT) - USE AN OBJECT" PRINT "TAKE (OBJECT) - TAKE OR MOVE AN OBJECT" PRINT "TALK - TALK TO SOMEONE" PRINT "INVENTORY - VIEW YOUR INVENTORY" PRINT "HELP - VIEW THIS SCREEN" PRINT "END - END GAME" PRINT PRINT "PRESS ANY KEY...": SLEEP DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF cmd$ = "INVENTORY" OR cmd$ = "INV" OR cmd$ = "ITEMS" OR cmd$ = "I" THEN CLS PRINT "INVENTORY..." PRINT IF gotcalender = 1 THEN: PRINT "You have a Calender." IF gotcomic = 1 THEN: PRINT "A old worn out comic, from The Twilight Zone." IF gotposter = 1 THEN: PRINT "A Poster for some band or show." IF gotmask = 1 THEN: PRINT "A creepy handmade Mask." IF gotpoison = 1 THEN: PRINT "A vile of Poison." IF gotquarter = 1 THEN: PRINT "An American Quarter." IF gothobodoll = 1 THEN: PRINT "A homemade doll in the design of a Hobo." PRINT PRINT "PRESS ANY KEY..." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF cmd$ = "GO NORTH" OR cmd$ = "NORTH" OR cmd$ = "N" THEN IF r = 3 THEN: r = 2: GOTO moved IF r = 4 THEN: r = 1: GOTO moved IF r = 8 THEN: r = 7: GOTO moved IF r = 7 THEN: r = 6: GOTO moved IF r = 6 THEN: r = 5: GOTO moved IF r = 15 THEN: r = 16: GOTO moved IF r = 17 THEN: r = 14: GOTO moved IF r = 14 THEN: r = 13: GOTO moved IF r = 18 THEN: r = 19: GOTO moved IF r = 12 THEN: r = 11: GOTO moved IF r = 28 THEN: r = 26: GOTO moved IF r = 26 THEN: r = 24: GOTO moved IF r = 24 THEN: r = 23: GOTO moved IF r = 47 THEN: r = 46: GOTO moved IF r = 34 THEN: r = 33: GOTO moved IF r = 33 THEN: r = 32: GOTO moved IF r = 45 THEN: r = 44: GOTO moved IF r = 35 THEN: r = 31: GOTO moved IF r = 31 THEN: r = 30: GOTO moved IF r = 49 THEN: r = 41: GOTO moved IF r = 41 THEN: r = 40: GOTO moved IF r = 40 THEN: r = 36: GOTO moved IF r = 36 THEN: r = 37: GOTO moved IF r = 42 THEN: r = 43: GOTO moved IF r = 53 THEN: r = 52: GOTO moved IF r = 61 THEN: r = 54: GOTO moved IF r = 55 THEN: r = 56: GOTO moved IF r = 64 THEN: r = 63: GOTO moved IF r = 63 THEN: r = 59: GOTO moved IF r = 59 THEN: r = 58: GOTO moved END IF IF cmd$ = "GO EAST" OR cmd$ = "EAST" OR cmd$ = "E" THEN IF r = 1 THEN: r = 2: GOTO moved IF r = 5 THEN: r = 4: GOTO moved IF r = 4 THEN: r = 3: GOTO moved IF r = 23 THEN: r = 22: GOTO moved IF r = 22 THEN: r = 21: GOTO moved IF r = 21 THEN: r = 6: GOTO moved IF r = 25 THEN: r = 24: GOTO moved IF r = 26 THEN: r = 27: GOTO moved IF r = 8 THEN: r = 9: GOTO moved IF r = 9 THEN: r = 10: GOTO moved IF r = 10 THEN: r = 11: GOTO moved IF r = 13 THEN: r = 12: GOTO moved IF r = 15 THEN: r = 14: GOTO moved IF r = 20 THEN: r = 17: GOTO moved IF r = 17 THEN: r = 18: GOTO moved IF r = 30 THEN: r = 29: GOTO moved IF r = 29 THEN: r = 28: GOTO moved IF r = 32 THEN: r = 31: GOTO moved IF r = 37 THEN: r = 38: GOTO moved IF r = 35 THEN: r = 36: GOTO moved IF r = 36 THEN: r = 39: GOTO moved IF r = 44 THEN: r = 40: GOTO moved IF r = 46 THEN: r = 45: GOTO moved IF r = 41 THEN: r = 42: GOTO moved IF r = 47 THEN: r = 48: GOTO moved IF r = 49 THEN: r = 50: GOTO moved IF r = 50 THEN: r = 51: GOTO moved IF r = 51 THEN: r = 52: GOTO moved IF r = 57 THEN: r = 56: GOTO moved IF r = 58 THEN: r = 53: GOTO moved IF r = 53 THEN: r = 54: GOTO moved IF r = 54 THEN: r = 55: GOTO moved IF r = 59 THEN: r = 60: GOTO moved IF r = 60 THEN: r = 61: GOTO moved IF r = 61 THEN: r = 62: GOTO moved IF r = 65 THEN: r = 64: GOTO moved END IF IF cmd$ = "GO SOUTH" OR cmd$ = "SOUTH" OR cmd$ = "S" THEN IF r = 2 THEN: r = 3: GOTO moved IF r = 1 THEN: r = 4: GOTO moved IF r = 5 THEN: r = 6: GOTO moved IF r = 6 THEN: r = 7: GOTO moved IF r = 7 THEN: r = 8: GOTO moved IF r = 16 THEN: r = 15: GOTO moved IF r = 13 THEN: r = 14: GOTO moved IF r = 14 THEN: r = 17: GOTO moved IF r = 11 THEN: r = 12: GOTO moved IF r = 19 THEN: r = 18: GOTO moved IF r = 23 THEN: r = 24: GOTO moved IF r = 24 THEN: r = 26: GOTO moved IF r = 26 THEN: r = 28: GOTO moved IF r = 30 THEN: r = 31: GOTO moved IF r = 31 THEN: r = 35: GOTO moved IF r = 44 THEN: r = 45: GOTO moved IF r = 32 THEN: r = 33: GOTO moved IF r = 33 THEN: r = 34: GOTO moved IF r = 46 THEN: r = 47: GOTO moved IF r = 37 THEN: r = 36: GOTO moved IF r = 36 THEN: r = 40: GOTO moved IF r = 40 THEN: r = 41: GOTO moved IF r = 41 THEN: r = 49: GOTO moved IF r = 43 THEN: r = 42: GOTO moved IF r = 52 THEN: r = 53: GOTO moved IF r = 54 THEN: r = 61: GOTO moved IF r = 56 THEN: r = 55: GOTO moved IF r = 58 THEN: r = 59: GOTO moved IF r = 59 THEN: r = 63: GOTO moved IF r = 63 THEN: r = 64: GOTO moved END IF IF cmd$ = "GO WEST" OR cmd$ = "WEST" OR cmd$ = "W" THEN IF r = 2 THEN: r = 1: GOTO moved IF r = 3 THEN: r = 4: GOTO moved IF r = 4 THEN: r = 5: GOTO moved IF r = 6 THEN: r = 21: GOTO moved IF r = 21 THEN: r = 22: GOTO moved IF r = 22 THEN: r = 23: GOTO moved IF r = 24 THEN: r = 25: GOTO moved IF r = 27 THEN: r = 26: GOTO moved IF r = 11 THEN: r = 10: GOTO moved IF r = 10 THEN: r = 9: GOTO moved IF r = 9 THEN: r = 8: GOTO moved IF r = 12 THEN: r = 13: GOTO moved IF r = 14 THEN: r = 15: GOTO moved IF r = 18 THEN: r = 17: GOTO moved IF r = 17 THEN: r = 20: GOTO moved IF r = 28 THEN: r = 29: GOTO moved IF r = 29 THEN: r = 30: GOTO moved IF r = 38 THEN: r = 37: GOTO moved IF r = 31 THEN: r = 32: GOTO moved IF r = 38 THEN: r = 37: GOTO moved IF r = 39 THEN: r = 36: GOTO moved IF r = 36 THEN: r = 35: GOTO moved IF r = 40 THEN: r = 44: GOTO moved IF r = 42 THEN: r = 41: GOTO moved IF r = 45 THEN: r = 46: GOTO moved IF r = 48 THEN: r = 47: GOTO moved IF r = 56 THEN: r = 57: GOTO moved IF r = 52 THEN: r = 51: GOTO moved IF r = 51 THEN: r = 50: GOTO moved IF r = 50 THEN: r = 49: GOTO moved IF r = 55 THEN: r = 54: GOTO moved IF r = 54 THEN: r = 53: GOTO moved IF r = 53 THEN: r = 58: GOTO moved IF r = 62 THEN: r = 61: GOTO moved IF r = 61 THEN: r = 60: GOTO moved IF r = 60 THEN: r = 59: GOTO moved IF r = 64 THEN: r = 65: GOTO moved END IF '''''''''''''''''''''''''''''''''''''''''''''''''''ITEMS IF (cmd$ = "EXAMINE CALENDER") AND gotcalender = 1 THEN CLS PRINT "The sorta Calender you'd see at a Bank Teller's window. There's" PRINT "and a name etched into the cardboard. Properity of Henry Bemis." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE COMIC") AND gotcomic = 1 THEN CLS PRINT "An old and sun beaten issue of The Twilight Zone. It's a classic," PRINT "with the Red Baron on the cover, fighting a ghost plane." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE POSTER") AND gotposter = 1 THEN CLS PRINT "An old wooden door, opened just a crack, as a bright light flee's" PRINT "from the unknown." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE MASK") AND gotmask = 1 THEN CLS PRINT "A handmade mask, from a small corner on the streets of New Orleans." PRINT "It's hand painted and looks to be that of a hideous monster." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE POISON") AND gotpoison = 1 THEN CLS PRINT "A vile of a red liquid. Labeled with a skull and crossbones. Looks" PRINT "pretty old." DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE QUARTER") AND gotquarter = 1 THEN CLS PRINT "A new shiny quarter. It feels like a normal quarter." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "EXAMINE HOBO DOLL") AND gothobodoll = 1 THEN CLS PRINT "A child's doll? Hand made, probably by some Grandmother. Just why" PRINT "would someone make a doll in the form of a Hobo?" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''NPC'S IF (cmd$ = "EXAMINE ROD SERLING") AND r = 1 THEN CLS PRINT "There he stands before you. Wearing a finely made black suit. With" PRINT "a lit cigarette in hand. He gives you a friendly nod." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO ROD SERLING") AND r = 1 THEN CLS PRINT "Welcome, to the divide between reality and the state of mind. I take" PRINT "it, this is your first time stepping into The Twilight Zone? Don't" PRINT "let it bother you to much. A lot of people who cross over always are" PRINT "a bit overwhelmed. Don't be, just enjoy the world you see." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE ROD SERLING") AND r = 27 THEN CLS PRINT "You see Rod Serling leaning againt the wall with a cup of coffee in" PRINT "his hand." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO ROD SERLING") AND r = 27 THEN CLS PRINT "Ever been to Mardi Gras? If not, you will be. But not in the sense" PRINT "that your thinking of. But that's all I'm going to say on that matter." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE ROD SERLING") AND r = 50 THEN CLS PRINT "You see Rod, standing at the exit or entrance of another place. A" PRINT "cloud of smoke woft's in the air." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO ROD SERLING") AND r = 50 THEN CLS PRINT "The human mind can take alot. Except for loneliness and isolation. If" PRINT "you see Astronaut in training Mike Ferris, tell him I say hi." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE JESSE CARDIFF") AND r = 21 THEN CLS PRINT "He looks tired and beaten by the hardships of a dream. He tightly" PRINT "grips his pool cue. He stares intently at the table, planning out" PRINT "his next move." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO JESSE CARDIFF") AND r = 21 THEN CLS PRINT "Say, you seem like the kinda guy that likes a game of pool. What do" PRINT "yeah say? Feel like taking me on in a game of pool?" PRINT "" PRINT "PLAY POOL" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE TALKING TINA") AND r = 34 THEN CLS PRINT "She's a strange doll, wearing a dull coloured dress. Her hair is" PRINT "done up neatly and her eye's blink when being moved. Her arms are" PRINT "in a hugging fashion." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO TALKING TINA") AND r = 34 THEN CLS PRINT "I'm Talking Tina and I don't like you very much...I'm Talking Tina" PRINT "and you better be nice to me. -You must get rid of this doll.-" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "THROW TALKING TINA") AND r = 34 THEN CLS GOTO gameover: DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE JASON FOSTER") AND r = 32 THEN CLS PRINT "You a sickly old man, wearing robe, and sitting in his wheelchair." PRINT "The expression on his face quickly changes from anger and disgust" PRINT "to confusion. He wears a mask, the face of the Angel of Death." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO JASON FOSTER") AND r = 32 THEN CLS PRINT "Who the Devil are you? Sorry, you must excuse me, I was expecting" PRINT "the Grim Reaper. At least, you aren't one of my greedy relatives." PRINT "Come in from the darkness and make yourself at home. Just a word" PRINT "of warning, if you find a mask laying around, don't put it on." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE EMILY") AND r = 38 THEN CLS PRINT "Emily, walks around in a circle, whining about how much pain she's" PRINT "in. You look in terror as the mask she is wearing is that of a" PRINT "horrid person. Driven by greed and self loathing." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO EMILY") AND r = 38 THEN CLS PRINT "Can you help me? My feet are killing? And I'm hot, it's so stuffy" PRINT "in here. Maybe, I'm sick...maybe it's Cancer? Do you think people" PRINT "will miss me?" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE WILFRED") AND r = 43 THEN CLS PRINT "You see Wilfred, a greedy black hearted man. He sits in a hand" PRINT "crafted chair worth a fortune. He has his hands together as if" PRINT "he's plotting something." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO WILFRED") AND r = 43 THEN CLS PRINT "Say, has my foolish Father bitten the dust yet? He was always" PRINT "was such a fool, thinking people matter, the way of thinking" PRINT "for those to stupid enough to reach greatness. I always hated" PRINT "the man, so weak, so worthless, once he dies, then I'll have" PRINT "it all." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE PAULA") AND r = 44 THEN CLS PRINT "You see Paula, a young woman, though you couldn't tell by the mask" PRINT "she was wearing. Even though it's hiding her face, she still manages" PRINT "to check herself in the compact mirror she always carries." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO PAULA") AND r = 44 THEN CLS PRINT "This has to be the biggest waste of time! It's Mardi Gras and I could" PRINT "be having fun, rather than stay in this stuffy old house." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE WILFRED JR") AND r = 47 THEN CLS PRINT "You see a young man, who looks to be having trouble with wearing" PRINT "a suit. He continues to fidget with his button up shirt. A river" PRINT "of sweat pouring from under his mask." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO WILFRED JR") AND r = 47 THEN CLS PRINT "Listen here, if you don't want any trouble, then I'd suggest for" PRINT "you to leave." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE SPORT SHAREWOOD") AND r = 14 THEN CLS PRINT "You see a young child, sitting by a cold pool of water. He looks" PRINT "over to you and nods." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO SPORT SHAREWOOD") AND r = 14 THEN CLS PRINT "Sure is a hot day today. I wonder if Aunt T. made lemonade?" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE JEB SHAREWOOD") AND r = 14 THEN CLS PRINT "Jeb is standing a few feet away from Sport, starring off into" PRINT "the distance, as if trying to spot an old friend." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO JEB SHAREWOOD") AND r = 14 THEN CLS PRINT "Have you seen him? A young boy in a Huckleberry Finn straw hat?" PRINT "He always pops up when our parents fight." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE GENERAL") AND r = 63 THEN CLS PRINT "You see a high ranking General, standing behind a table with Doctors." PRINT "He's going over notes and whispering to himself." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO GENERAL") AND r = 63 THEN CLS PRINT "Say, are you here for the experiment or just passing through...wait" PRINT "your not with us! Please, sir, move along before you ruin everything." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE MIKE FERRIS") AND r = 54 THEN CLS PRINT "You see a man, wearing a jumpsuit, and looking frantic. He seems out" PRINT "of place and out of breath." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO MIKE FERRIS") AND r = 54 THEN CLS PRINT "You see me? Your real! Thank the heavens, I thought I was lost in" PRINT "this dead place. Where are the others? Where are the rest?" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "ROD SAYS HI") AND r = 54 THEN CLS PRINT "Why, thank you for the message. If I see him around, I'll sure to" PRINT "repay the message." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''''Interactive Items IF (cmd$ = "EXAMINE POOL TABLE") AND r = 21 THEN CLS PRINT "A pool table, well played, scratch marks on the velvet remind us of" PRINT "those new to the game." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "PLAY POOL") AND r = 21 THEN CLS PRINT "You pick up the pool cue and scratch on your first try. Jesse, just" PRINT "looks at you and shakes his head. You put the cue back and decide to" PRINT "move along." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE POOL") AND r = 14 THEN CLS PRINT "A large pool of water, it has a sort of power to it, it calls out" PRINT "to you. The sun makes you yearn for a dip in the cold embrace of" PRINT "the water." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TAKE A SWIM") AND r = 14 THEN CLS PRINT "You decide against it. Best to move along. This is they're way out" PRINT "not your's." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE STREET") AND r = 6 THEN CLS PRINT "A busy street on a weekday afternoon. People coming and going to" PRINT "they're places of work." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "CROSS STREET") AND r = 6 THEN CLS GOTO gameover2: DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE STREET") AND r = 7 THEN CLS PRINT "Horns honking and the sound of engines roaring downing the freshly" PRINT "paved street." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "CROSS STREET") AND r = 7 THEN CLS GOTO gameover2: DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE CROSSWALK BUTTON") AND r = 58 THEN CLS PRINT "A wide white button. Fused to the traffic pole, connected by wires" PRINT "to a yellow light. Giving warning that one was about to cross." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "PUSH CROSSWALK BUTTON") AND r = 58 THEN CLS PRINT "You push the button. A clinking sound echos through the empty street." PRINT "The sound of the light going on and off is heard. You don't know if" PRINT "you feel safer or not." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE DOORBELL") AND r = 31 THEN CLS PRINT "A cast iron steel case with a dime sized button. A way to draw" PRINT "attention to those inside." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "USE DOORBELL") AND r = 31 THEN CLS PRINT "You ring the doorbell and are suddenly the door slowly opens." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE MANNEQUIN") AND r = 53 THEN CLS PRINT "You see a Mannequin, dressed in a suit and tie, with a hat upon" PRINT "it's head. A blank, emotionless expression etched on it's face." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO MANNEQUIN") AND r = 53 THEN CLS PRINT "..." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "EXAMINE MANNEQUIN") AND r = 61 THEN CLS PRINT "You see a female Mannequin, standing on display in a store front." PRINT "Wearing a sun dress, a big sun hat, and carrying a large beach bag." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF IF (cmd$ = "TALK TO MANNEQUIN") AND r = 61 THEN CLS PRINT "..." DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "DRINK POISON") AND gotpoison = 1 THEN CLS GOTO gameover3: DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "PUT ON MASK") AND gotmask = 1 THEN CLS GOTO gameover4: DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "TALK TO HOBO DOLL") AND gothobodoll = 1 THEN CLS PRINT "You try and listen with all your might. But all you can manage to" PRINT "hear is a low whisper. Just what is he trying to say?" DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF ''''''''''''''''''''''''''''''''''''''''''''Take Item Commands IF (cmd$ = "TAKE CALENDER") AND gotcalender = 0 AND r = 2 THEN gotcalender = 1 PRINT "You have taken the Calender." END IF IF (cmd$ = "TAKE COMIC") AND gotcomic = 0 AND r = 4 THEN gotcomic = 1 PRINT "You have taken the Comic." END IF IF (cmd$ = "TAKE POSTER") AND gotposter = 0 AND r = 25 THEN gotposter = 1 PRINT "You have taken the Poster." END IF IF (cmd$ = "TAKE MASK") AND gotmask = 0 AND r = 43 THEN gotmask = 1 PRINT "You have taken the Mask." END IF IF (cmd$ = "TAKE POISON") AND gotpoison = 0 AND r = 48 THEN gotpoison = 1 PRINT "You take the vile of Poison." END IF IF (cmd$ = "TAKE QUARTER") AND gotquarter = 0 AND r = 7 THEN gotquarter = 1 PRINT "You have taken the a single Quarter." END IF IF (cmd$ = "TAKE HOBO DOLL") AND gothobodoll = 0 AND r = 34 THEN gothobodoll = 1 PRINT "You have taken the Hobo Doll." END IF '''''''''''''''''''''''''''''''''''''''''''' IF (cmd$ = "OPEN DOOR" OR cmd$ = "TAKE A BOW") AND r = 65 THEN CLS GOTO win: DO: LOOP UNTIL INKEY$ = "" DO: LOOP UNTIL INKEY$ <> "" END IF moved: RETURN r1: PRINT "________________________________________________________________________" PRINT " You awaken from a long sleep. It feels as if you've slept for years. A " PRINT " stale taste of filth lingersin your mouth, just what happened to you " PRINT " lastnight? You find yourself in a small shack of sorts. There, standing" PRINT " just a few feet from you, you see ROD SERLING delivering a wondrous " PRINT " monologue. " PRINT "" PRINT " TALK TO ROD SERLING or EXAMINE ROD SERLING " PRINT "________________________________________________________________________" RETURN r2: PRINT "________________________________________________________________________" PRINT " You are standing in a bare section of the shack. By you, is an old worn" PRINT " out desk, something you'd find in a trappers cabin in the middle of the" PRINT " arctic tundra. " PRINT "________________________________________________________________________" IF gotcalender = 0 THEN: PRINT "You see a bank Calender resting on a small coffee table." RETURN r3: PRINT "________________________________________________________________________" PRINT " The air grows warmer and you feel as if the walls are slowly closing in" PRINT " on you. You must find a way out of here. " PRINT "________________________________________________________________________" RETURN r4: PRINT "________________________________________________________________________" PRINT " You are standing before the exit. The blinding sun stretches out into " PRINT " the darkness that's made it's home for the time being in the shack. " PRINT "________________________________________________________________________" IF gotcomic = 0 THEN: PRINT "You see a Comic, just lying on the floor. Looks good." RETURN r5: PRINT "________________________________________________________________________" PRINT " The warmth from the sun makes you feel sluggish. You are standing on " PRINT " a sidewalk down a main street somewhere in midwest USA. " PRINT "________________________________________________________________________" RETURN r6: PRINT "________________________________________________________________________" PRINT " The sounds of cars speeding past you and honking in an agressive yet " PRINT " cold manner. " PRINT "________________________________________________________________________" RETURN r7: PRINT "________________________________________________________________________" PRINT " A cool breeze makes you feel great to be alive. Though, you have no " PRINT " idea how you came to be here. An empty newstand stands before you. " PRINT "________________________________________________________________________" IF gotquarter = 0 THEN: PRINT "You see a Quarter standing upright in the coin box." RETURN r8: PRINT "________________________________________________________________________" PRINT " Slowly, the traffic cries begin to fade away, as you are standing at " PRINT " the entranceway to a forest or such. " PRINT "________________________________________________________________________" RETURN r9: PRINT "________________________________________________________________________" PRINT " The smell of nature fills your lungs. You feel at peace here, the birds" PRINT " sing a relaxing song, as you begin to wander into the unknown. " PRINT "________________________________________________________________________" RETURN r10: PRINT "________________________________________________________________________" PRINT " Walking down an old beaten dirt path. You are greeted by a cool breeze " PRINT " traveling from the mighty peaks of the rockies. " PRINT "________________________________________________________________________" RETURN r11: PRINT "________________________________________________________________________" PRINT " With every step you take down the dirt path, you have the feeling of " PRINT " being watched by an invisible force. " PRINT "________________________________________________________________________" RETURN r12: PRINT "________________________________________________________________________" PRINT " In the distance you can hear children laughing and talking amongst " PRINT " themselves. Followed by the splashing of water. " PRINT "________________________________________________________________________" RETURN r13: PRINT "________________________________________________________________________" PRINT " You are standing at a clearing of large spruce tree's and before you is" PRINT " a neatly maintained front yard. " PRINT "________________________________________________________________________" RETURN r14: PRINT "________________________________________________________________________" PRINT " You are standing before a large pool of crystal clear water. In the " PRINT " distance, you see a house, and hear the angry screams of a couple that " PRINT " seems to have no end. Two children are playing by the pool. Sport " PRINT " Sharewood and Jeb Sharewood. " PRINT "" PRINT " EXAMINE SPORT SHAREWOOD or TALK TO SPORT SHAREWOOD " PRINT " EXAMINE JEB SHAREWOOD or TALK TO JEB SHAREWOOD " PRINT " TAKE A SWIM " PRINT "________________________________________________________________________" RETURN r15: PRINT "________________________________________________________________________" PRINT " As you walk down the path, you notice that all is silent around you. " PRINT "________________________________________________________________________" RETURN r16: PRINT "________________________________________________________________________" PRINT " A wall of brush blocks your path. Best to head back now. " PRINT "________________________________________________________________________" RETURN r17: PRINT "________________________________________________________________________" PRINT " The house seems to have moved back further. Probably for the best. No " PRINT " need to allow yourself to be brought into that drama. " PRINT "________________________________________________________________________" RETURN r18: PRINT "________________________________________________________________________" PRINT " The eerie silence of the unknown surrounds you. A shiver runs down your" PRINT " spine. " PRINT "________________________________________________________________________" RETURN r19: PRINT "________________________________________________________________________" PRINT " Suddenly, you hear music come from out of nowhere. Almost, as if your " PRINT " supposed to feel upset at seeing another deadend. How odd. " PRINT "________________________________________________________________________" RETURN r20: PRINT "________________________________________________________________________" PRINT " Another deadend? Through the brush, you notice a cloud of cigarette " PRINT " smoke, making it's way towards you. " PRINT "________________________________________________________________________" RETURN r21: PRINT "________________________________________________________________________" PRINT " You are standing in a smoke filled pool hall. The sound of people " PRINT " talking amongst themselves and the jukebox playing, gives it a sort of " PRINT " natural feel to it. You see Jesse Cardiff, muttering to himself, about " PRINT " his next move. " PRINT "" PRINT " EXAMINE JESSE CARDIFF or TALK TO JESSE CARDIFF " PRINT "________________________________________________________________________" RETURN r22: PRINT "________________________________________________________________________" PRINT " You are standing in a clean alley. Strange, how clean an alley can be? " PRINT "________________________________________________________________________" RETURN r23: PRINT "________________________________________________________________________" PRINT " Not a sound...not a car driving past, or a drunk throwing up. Now this " PRINT " is beginning to get strange. " PRINT "________________________________________________________________________" RETURN r24: PRINT "________________________________________________________________________" PRINT " The sky begin's to grow dark and the smell of rain fills the air. " PRINT "________________________________________________________________________" RETURN r25: PRINT "________________________________________________________________________" PRINT " You are standing before a large brick wall, void of being graffitied. " PRINT "________________________________________________________________________" IF gotposter = 0 THEN: PRINT "You see a Poster hanging crocked on an old brick wall." RETURN r26: PRINT "________________________________________________________________________" PRINT " The thunder cries throughout the sky. Best to be taking shelter before " PRINT " it's too late. " PRINT "________________________________________________________________________" RETURN r27: PRINT "________________________________________________________________________" PRINT " You are standing before a dead end. Old worn out boxes litter along the" PRINT " walls. You see Rod Serling taking a quick break. " PRINT "" PRINT " EXAMINE ROD SERLING or TALK TO ROD SERLING " PRINT "________________________________________________________________________" RETURN r28: PRINT "________________________________________________________________________" PRINT " You are now free from the confines of the alley and are now standing " PRINT " at the beginning of a path, leading towards a manor of sorts. " PRINT "________________________________________________________________________" RETURN r29: PRINT "________________________________________________________________________" PRINT " Leaves rush past you as the wind begins to pick up. The temperature " PRINT " quickly drops, as you see salvation just a little ways away. " PRINT "________________________________________________________________________" RETURN r30: PRINT "________________________________________________________________________" PRINT " You are standing before a large old manor. You have a creepy feeling " PRINT " about this, but figure it's better than standing out in this storm. " PRINT "________________________________________________________________________" RETURN r31: PRINT "________________________________________________________________________" PRINT " A large wooden door greets you. As the rain begin's to start colliding " PRINT " to the Earth. " PRINT "" PRINT " EXAMINE DOOR BELL or USE DOORBELL " PRINT "________________________________________________________________________" RETURN r32: PRINT "________________________________________________________________________" PRINT " You are standing in a vast study. Shelves and shelves, littered with " PRINT " old and out of print books, from all corners of the world. It would " PRINT " take a life time just to read all these wondrous titles. " PRINT " " PRINT " You see an elderly old man, he nods, and greets you. His says his name " PRINT " is Jason Foster. " PRINT " " PRINT " EXAMINE JASON FOSTER or TALK TO JASON FOSTER " PRINT "________________________________________________________________________" RETURN r33: PRINT "________________________________________________________________________" PRINT " Thunder crashes across the night sky like an atomic bomb going off. The" PRINT " smell of dust lingers in the air. " PRINT "________________________________________________________________________" RETURN r34: PRINT "________________________________________________________________________" PRINT " You are standing in an old bedroom. Decorated for a child, a little " PRINT " girl perhaps. It looks as if it hasn't been lived in, in years. Sitting" PRINT " upon the neatly made bed of what appears to be that a girls bed. You " PRINT " a wonderfully made doll, sitting on the end of the bed. It lets out a " PRINT " laugh and introduces itself as Talking Tina. " PRINT " " PRINT " EXAMINE TALKING TINA or TALK TO TALKING TINA " PRINT "________________________________________________________________________" IF gothobodoll = 0 THEN: PRINT "You see a Hobo Doll, resting in a cardboard box." RETURN r35: PRINT "________________________________________________________________________" PRINT " You are standing in a small hallway. Very rarely ever used but for the " PRINT " odd elderly old man. " PRINT "________________________________________________________________________" RETURN r36: PRINT "________________________________________________________________________" PRINT " You are standing in what appears to be an ever stretching web of halls." PRINT "________________________________________________________________________" RETURN r37: PRINT "________________________________________________________________________" PRINT " The storm grows outside as if it's from another time or maybe another " PRINT " world. " PRINT "________________________________________________________________________" RETURN r38: PRINT "________________________________________________________________________" PRINT " You are standing at a narrow deadend. But you are not alone...you hear " PRINT " a sigh as they introduce themselves as Emily " PRINT " " PRINT " EXAMINE EMILY or TALK TO EMILY " PRINT "________________________________________________________________________" RETURN r39: PRINT "________________________________________________________________________" PRINT " Another deadend, just how big is this place? " PRINT "________________________________________________________________________" RETURN r40: PRINT "________________________________________________________________________" PRINT " The hallway seems to stretch out for an eternity. With every step you " PRINT " take, you feel as if your being watched. " PRINT "________________________________________________________________________" RETURN r41: PRINT "________________________________________________________________________" PRINT " The heavens are raining upon the lands. Every drop echoes throughout " PRINT " the house. " PRINT "________________________________________________________________________" RETURN r42: PRINT "________________________________________________________________________" PRINT " You hear the eerie sound of either crying or laughter. As the lights " PRINT " begin to flicker on and off, you just about have had enough of this. " PRINT "________________________________________________________________________" RETURN r43: PRINT "________________________________________________________________________" PRINT " Standing before you, a large figure stands alone. Mumbling, you hear " PRINT " that his name is Wilfred. " PRINT " " PRINT " EXAMINE WILFRED or TALK TO WILFRED " PRINT "________________________________________________________________________" IF gotmask = 0 THEN: PRINT "You see a handmade Mask resting on a table." RETURN r44: PRINT "________________________________________________________________________" PRINT " You enter a small room and see Paula. A strong smell of purfume fills " PRINT " the air. " PRINT " " PRINT " EXAMINE PAULA or TALK TO PAULA " PRINT "________________________________________________________________________" RETURN r45: PRINT "________________________________________________________________________" PRINT " An empty room greets you. " PRINT "________________________________________________________________________" RETURN r46: PRINT "________________________________________________________________________" PRINT " The walls begin to transform to those made not from wood but from " PRINT " concrete. What appears to sound like explosions rattle the walls. " PRINT "________________________________________________________________________" RETURN r47: PRINT "________________________________________________________________________" PRINT " You enter a small room and see Wilfred Jr. He gives you a nod and goes " PRINT " about humming a song. " PRINT " " PRINT " EXAMINE WILFRED JR or TALK TO WILFRED JR " PRINT "________________________________________________________________________" RETURN r48: PRINT "________________________________________________________________________" PRINT " You find yourself standing in Hitler's bunker. Nazi flags decorate the " PRINT " cold dead room. It looks as if you've just missed the party? " PRINT "________________________________________________________________________" IF gotpoison = 0 THEN: PRINT "You see a vile of Poison. Resting in the centre of Hitler's desk." RETURN r49: PRINT "________________________________________________________________________" PRINT " In the distance you see a bright light coming from the end of the hall." PRINT "________________________________________________________________________" RETURN r50: PRINT "________________________________________________________________________" PRINT " You are standing at the cusp of total freedom from this darkened corner" PRINT " of this world. Littered with greed and hate. Standing before you, you " PRINT " see Rod Serling once more. " PRINT " " PRINT " EXAMINE ROD SERLING or TALK TO ROD SERLING " PRINT "________________________________________________________________________" RETURN r51: PRINT "________________________________________________________________________" PRINT " You are standing on the sidewalk of an empty town void of life. " PRINT "________________________________________________________________________" RETURN r52: PRINT "________________________________________________________________________" PRINT " It looks as if a bomb at went off, erasing all life within the confines" PRINT " of this town in the middle of nowhere. " PRINT "________________________________________________________________________" RETURN r53: PRINT "________________________________________________________________________" PRINT " Only a few feet away, you notice someone sitting in a milk truck. You " PRINT " feel as if the madness has come to an end. " PRINT " " PRINT " EXAMINE MANNEQUIN or TALK TO MANNEQUIN " PRINT "________________________________________________________________________" RETURN r54: PRINT "________________________________________________________________________" PRINT " You walk down the street, the only thing you hear is that of your own " PRINT " footsteps. Strange...you see another person here. You hear him laugh " PRINT " and cry out loud in joy. He shouts our his name and military rank. Mike" PRINT " Ferris. " PRINT " " PRINT " EXAMINE MIKE FERRIS or TALK TO MIKE FERRIS " PRINT "________________________________________________________________________" RETURN r55: PRINT "________________________________________________________________________" PRINT " You wipe the sweat from your forehead and see a diner. Maybe someone's " PRINT " in there? Maybe they'll have a phone. " PRINT "________________________________________________________________________" RETURN r56: PRINT "________________________________________________________________________" PRINT " The smell of steak being cooked fills the air with a wonderful aroma. " PRINT "________________________________________________________________________" RETURN r57: PRINT "________________________________________________________________________" PRINT " You walk up to the Diner and find that it's locked. You bang on the " PRINT " glass door and stop as a police siren cries out in the distance. " PRINT "________________________________________________________________________" RETURN r58: PRINT "________________________________________________________________________" PRINT " Off in the distance, you hear music begin to play...but you can't put " PRINT " a finger on where it's coming from? Best not to go looking. But it does" PRINT " not last, you hear the sound of cars driving in the distance, and as " PRINT " you are standing at a street corner, you see a crosswalk. " PRINT " " PRINT " EXAMINE CROSSWALK BUTTON or PUSH CROSSWALK BUTTON " PRINT "________________________________________________________________________" RETURN r59: PRINT "________________________________________________________________________" PRINT " You are standing in the centre of the small town. The smell of freshly " PRINT " cut grass fills the air. Looks like you've missed them again! " PRINT "________________________________________________________________________" RETURN r60: PRINT "________________________________________________________________________" PRINT " You wander down the quiet mainstreet. " PRINT "________________________________________________________________________" RETURN r61: PRINT "________________________________________________________________________" PRINT " Rows and rows of shops that you think were once busy like any town in " PRINT " the mid-west USA. Nothing now but relic's of what use to be. You are " PRINT " greeted by a Mannequin. " PRINT " " PRINT " EXAMINE MANNEQUIN or TALK TO MANNEQUIN " PRINT "________________________________________________________________________" RETURN r62: PRINT "________________________________________________________________________" PRINT " You are standing before a road that goes to who knows. But it's blocked" PRINT " with a deadend divider. " PRINT "________________________________________________________________________" RETURN r63: PRINT "________________________________________________________________________" PRINT " You slowly enter a vast area, looks like a warehouse, there you see a " PRINT " a small gathering of people going over notes. They look offical, army " PRINT " types, and Doctors. A General gives you a nod. " PRINT " " PRINT " EXAMINE GENERAL or TALK TO GENERAL " PRINT "________________________________________________________________________" RETURN r64: PRINT "________________________________________________________________________" PRINT " As you walk past the General and those in this puppet show of sorts. " PRINT " You realize you are standing backstage somewhere. A small production or" PRINT " an experiment to drive you mad perhaps. " PRINT "________________________________________________________________________" RETURN r65: PRINT "________________________________________________________________________" PRINT " You walk to the end of the set and see an old wooden door. It doesn't " PRINT " appear to belong here, but honestly what does. " PRINT " " PRINT " OPEN DOOR or TAKE A BOW " PRINT "________________________________________________________________________" RETURN win: COLOR 15, 0 CLS PRINT "You awaken to find yourself sleeping in the safety and comfort of your bed." PRINT "Keys in hand and being greeted by a pounding headache. In the background the" PRINT "theme to The Twilight Zone can be heard. Was it all dream? Or was it a sign" PRINT "of things to come?" PRINT "" PRINT "" PRINT "-----------------------------------------------------------------------------------" PRINT "Thank you for playing" PRINT PRINT "-The Twilight Zone-" PRINT "" PRINT "Written/Coded by D.B. Taylor" DO: LOOP UNTIL INKEY$ <> "" END gameover: COLOR 15, 0 CLS PRINT "Without a moment to spare, you decide the best course of action is to" PRINT "throw Talking Tina against the wall. Taking a deep breath, you collect" PRINT "your thoughts and before you know it. She rushes towards you and ends" PRINT "your life. Now, you are a permanent resident of The Twilight Zone." PRINT DO: LOOP UNTIL INKEY$ <> "" END gameover2: COLOR 15, 0 CLS PRINT "Without a moment to think, you set foot onto the cold pavement, and before" PRINT "you know it. A car turns the corner at a hellish speed and strikes you" PRINT "down. Slowly, you feel your body begin to grow cold and soon you fade away." PRINT DO: LOOP UNTIL INKEY$ <> "" END gameover3: COLOR 15, 0 CLS PRINT "Quickly, you unscrew the cap and drink the poison. Moments pass, as suddenly" PRINT "you feel it do it's work. Quickly, you fall to your knee's, take in one final" PRINT "breath, and fade into the darkness of the unknown." PRINT DO: LOOP UNTIL INKEY$ <> "" END gameover4: COLOR 15, 0 CLS PRINT "You slowly put on the mask and within seconds, it sticks to your face. As time" PRINT "slowly ticks away, you hear the clock strick twelve. Thing just as easy as you" PRINT "put it on, it falls off, and reveals the horrendous creature within." PRINT DO: LOOP UNTIL INKEY$ <> "" END FUNCTION GrabInput$ x = POS(0) y = CSRLIN maxwidth = _WIDTH - x PCOPY 0, 1 'make a backup copy of the screen DO k = _KEYHIT i$ = INKEY$ LOOP UNTIL k = 0 AND INKEY$ = "" 'clear the keyboard buffer DO _LIMIT 30 PCOPY 1, 0 LOCATE y, x: PRINT Userinput$ k = _KEYHIT SELECT CASE k CASE 8 Userinput$ = LEFT$(Userinput$, LEN(Userinput$) - 1) CASE 65 TO 90, 97 TO 122, 32 Userinput$ = UCASE$(Userinput$ + CHR$(k)) END SELECT timerleft## = (DOOM - TIMER(0.001)) minutes = timerleft## \ 60 seconds = timerleft## - minutes * 60 LOCATE 2, 32: PRINT USING " ###:##.###"; minutes, seconds IF timerleft## <= 0 THEN GOTO doomed _DISPLAY LOOP UNTIL k = 13 GrabInput$ = Userinput$ _AUTODISPLAY EXIT FUNCTION doomed: CLS PRINT "The final seconds tick away and suddenly the lights begin to shut off." PRINT "Then out of nowhere, you see masses of people walk around you, collecting" PRINT "bits and pieces of the set. As if the production has been canceled." PRINT "Soon, you find yourself engulfed in darkness and lost within the pockets" PRINT "of space and time." _DISPLAY END END SUB